RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**FILE**IDe* TITLES 


LLLLLLLL 
LLLLLLLLL 


LL 
LL 


ee ee ee 
ee 


“— 
“ 
8 Ek ad nd Od Od nd Od Og OG OG 
Ed nd ad Od Od Od Od Od Od Oo eG 
—“—— 
_— 


en 
a 


LLLLLLLLLL 
LLLLLLLLLL 


Process most directives related to document tit 16- Sen-1984 94:33:91 ye 


ocess most directives related to document titles.' 
MODULE TITLES ( 
IDENT = ‘V04-000' 
%BL1SS32C 
ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
)ez 


th Yh. Oorae Page 1 
«SRCITITLES.BLI; ) 


ZTITLE ‘Pro 


vv 


SOOOOSCOOCOOSOOSOSOSOOSOSOSSOSOSSSOSOOOSOSOOSOSOSOSOOSOOOOOOOOOOOOSOOOOoOO 


oooo 
wins & 


BEGIN 


lenueentnecnennennennenacnnennsenceesensnennsensnessessnsaenaennsnsesseses 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 
* 
*® 
® 
*® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
it VIN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
' * 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. * 

® 

® 

* 

* 

* 

® 


i® DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
'® SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


See AAA AAA A EERE AKAAAKAAA AAA 
' 
'o¢ 


; FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
j AOSTRAG?s Processes the tet louton s¢ somagndss 
Tl -NO SUBTITLE 
“ AUTOSUBTITLE -NO AUTDSUBTITLE AT 
.NO “HEADERS LOWER “HEADERS ON 
“HEADERS UPPER .HEADERS MIXED NO NUMBER 
FIRST TITLE -FIRST TITLE ALWAYS "NO HEADERS 


-AUTOTITLE »~NO AUTOTITLE 


Also called by HL to handle header level 1's when .AUTOSUBTITLE 
is in effect. 


NOUS WN 0 OO NOAU EAN OC ODNOU EWN SQ OOONOUE WN OOONOUE WN 


=—OODNOA NEW 0 ODNA UE WIN 9 ODNAUN EWN SQ OOODNAUE WN SP OOODNOU EWN 


i ENVIRONMENT: Transportable 
i AUTHOR: R.W. Friday CREATION DATE: July, 1978 


Oc 
a kk kk kk a dd dd td td dB OOOOOOO 
- 
em 


DDE BEE EEE EB FAWN NAAR PIPPI NINIPNNDD 2 2 2 OO es es 


-o 


WUSElo_RIVIETETYNE digest tes rotoes to aocunone eve SEfeciats SHE) MGA MENARD 


3 ? ; } FSBTTL "Revision History’ 

: §5 4 MODIFIED BY: 

: 5 6 1 | 013 KFA0001 Ken Alden 22-Mar-1983 

; 8 : MAde adjustments to ashe SAVE/RESTORE visible to DSR. 

: 60 § 1 i 012 KAD90012 Keith Dawson 17-Mar-1983 

; 2 si : Fixed module name (was TITLE, now TITLES). 

: 6 0062 1 | 011 REMO0011 Ray Marshall 07-Mar-1983 

; 66 0063 1! Global edit of all  ecdules. Updated module names, idents, 
;. & 0064 1! copyright dates. Changed require files to BLISS library. 
3; @& 0065 1: 

; 67 0066 1 i- 
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V LF80 Module Level Declarations 12-88-1382 ee RUNOFF ESRE Titube ou tei 


ZSBTTL ‘Module Level Declarations’ 


WO 


WN OCONOUEWN -OOSNOULSWN—O” 
Cc 


TABLE OF CONTENTS: 


INCLUDE FILES: 


OOCCCCOCSoOooO 


ONIN NINN NSO OO 


WR @§O OO NA UE WIN 0 ODO UNE WIN 9 OD NAME WIN) OOO NOU EWN OO CONOULS WN OWOO~ 


RARY ‘NXPORT:XPORT'; ! XPORT Library 
UIRE "REQ:RNODEF'; ' RUNOFF variant definitions 


DSRPLUS XTHEN 
RARY 'REQ:DPLLIB' ; ! DSRPLUS BLISS Library 
RARY "REQ:DSRLIB'; ! DSR BLISS Library 


—Ooro~ ow 


EQUATED SYMBOLS: 


EXTERNAL LITERAL 
RINTES : UNSIGNED (8); 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

! OWN STORAGE: 
1 OWN 2 

: PP_SCA : SH_R_SCA_BLOCK; ‘Used im PUSH_SCA, POP_SCA macros (defined in SCA.REQ). 
: EXTERNAL REFERENCES: 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MEWwN— 


venkat 1 


Be Be Be Oe Oe Oe Oe Be Os Oe Oe Oe Be Be Oe Be Oe Os Oe Oe Be Oe Oe Oe Os BF Ss Oe Oe Oe Os Os Oe Os Os Os Os Os Os Oe Os Oe Os Os Oe Oe Os Os BH Se Se Ss Se ee teese 
oO 
co 

SOOCSOSOOCOCOCOCOCSCOCOOSSOOOCOOS SOS SOOOSOSOO SOOO OOOS OOOO OOCOOOOOOOOOO 


PRIPIPIPOPIPIPIPIPIPIPIPIPIPIPIPOPIPOPIPPIPIPIPUPIPUPPINIPIPIPONIPUNIPOPOPOPIPONPOPPONonony: 


Nous 
PUI BS BBB BEE SE FE AWWW AIA DIPONIPONININNYDY 2 2 OS OS SS S| COO 


me ee ee ee ee ee a ed ed ed = od = = 2 


MEUM 0 OONOULS WO 0On 


EXTERNAL LITERAL : ‘Error messages 
RNFTTL; 
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é EXTERNAL ROUTINE 
RMA 


; 


: 


4 
4 


13:08:48 


AX-11 Bl 
RUNOFF .S 


i 
R 


$ 
C 


j 


HEN 
‘User said .AUTOSUBTITLE +n or =n. 
‘Adjust last value, whatever it was. 
EL sehUMaWALUE = .GCA_MAX_ASTN + .NUM_VALUE 
IF .NUM_LENGTH EQL 0 _ THEN 
'User said .AUTOSUBTITLE with no value, so recall last value. 
NUM_VALUE = .GCA_MAX_ASTN; 


'Now, the effective value has been computed, so just store it. 
GCA_AUTOSUBT = .NUM_VALUE; 
— GCALMAX_ASTN = .NUM_VALUE; 'Remember for .NO AUTOSUBTITLE. 
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TITLE Process most directives related to document tit 1b-S¢ -1984 01:53: AX-11 Bliss-32 V4.0-74 P 5 
v04=0 TITLES. -= 1eree- 188s Pha h || HAMA ObkesT#e Ye -8r 749 ~~ 
7 2 61 1 ZSBTTL ‘TITLES <==" 3 
: : 5 6 ! GLOBAL ROUTINE titles (handler_code) : NOVALUE = : 
:-% 5 rt 1 144 : 
: : 8 6g : } FUNCTIONAL DESCRIPTION: : 
: 129 of ! See the ABSTRACT, above. 
3 146 8 4 1 ! FORMAL PARAMETERS: $ 
; «614 S 7 $ 
: 144 0271 1! Handler_code usually specifies which command is to be processed. : 
s 4465 ie 1! However, if its value is -1 then this routine is being called ; 
: 138 i } by HL to process a header level 1. : 
: 148 75 1°! IMPLICIT INPUTS: None : 
: 149 £8 7% é 
: 139 0 a : IMPLICIT OUTPUTS: None : 
: 138 9 79 1! ROUTINE VALUE: : 
3 13? 8 HY : COMPLETION CODES: None : 
: 155 0963 1 | SIDE EFFECTS: None : 
: 156 0283 1! ; 
a ae ; 
eo ae | 
> 161 0288 LOCAL ; 
3 166 0289 FIRST_XTN, 3 
3 (16 b539 XIN 3 
: 164 0291 HOLD" INDENT, ; 
3; 6165 i354 HOLD_MRA, 2 
3 198 O69? WOLD. TAB_COUNT. : 
; 168 0998 SCA_ROLD’: SCA_DEFINITION; ; 
: 170 0599 SELECT .HANDLER_CODE OF : 
3 10) 0999 SET F 
; 38 0300 CH_AUTOSUBTITLE) : 
3; 174 030 BEGIN 
3 75 030 !Ignore command if numeric parameter was bad 
: 176 30 IF NOT .NUM_RESULT THEN 
; ive 3 RETURN; 
: 179 033 IF .NUM_SIGN THE 
; 180 
: 181 3 
; is¢ 
3 13 
; 188 3 
3 3 
ag 
: 189 6 
3; 190 0 


NOUS WN $0 OONOUS WN 


ed ed et od ot = OOO 


WA 
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youcboo TITLES. == erent Re Pha Th | PaMaae Obdess 3s Ye -Or 749 ~~ VO 
; 191 1 RETURN; $ 
a " : 
: 194 1 CH_NO_AUTOSUBTIT) : ; 
3; 6195 § BEGIN 3 
; 138 GCA_AUTOSUBT = FALSE; 3 
: 19 4 RETORN; $ 
: 138 5 ND; : 
: 200 U § IF DSRPLUS XTHEN : 
; Bs 7 : WAUTOTITLED : : 
: 68 U ‘an Autotitle command has been hit. : 
: 04 U 0331 SCA_AUTOTITLE = TRUE; 'Turn on Autotile. : 
: 205 u 0 § RETURN; $ 
2 eet: : : 
: 208 U 0335 CH_NO_AUTOTITLE) : : 
: 209 U 0336 BEGIN 3 
3 10 U 0337 'a No Autotitle command has been hit. ae 
3 11 U 0338 SCA_AUTOTITLE = FALSE; 'Turn off Autotitle. > 
; \¢ U O37? RETURN; oc) 
i Sig Y O31 5 art ' 2 
Ho Hei”. vga, : 
: 5 0344 HCT DATE = TRUE; z 
; 218 0345 RETORN 5 
oe, on : 
Bo Be  ougae : . 
; $55 0350 HCT_DATE = FALSE; 1 
3 $e 0351 3 RETORN; : 1 
: $82 $338 = ao 
BRE ug meen . 
; § 0356 'Page numbering is turned off at the start of the next page, at the latest. ; 
> 230 0357 HCT_NMPG_NP = FALSE; Bey 
: 231 0358 'At"the top of the first page, or in the middle of a page, turn it ; 
; 3 035 ‘off immediately. 3 
FY Oey IF shee IRST : 
: 33 0360 NOT .PHAN_TOP_PAGE : 
3s 20 36 THEN 3 
: 237 0564 HCT_NUMBER_PAGE = FALSE; ; 
3; 238 365 RETURN; ; 
: 44 $08 END; : 
i 34l 368 CH_FIRST TITLE : ; 
> 26 359 PHAN_HEADER = TRUE; ‘Force header for this page. : 
: 44 71 RETURN; 3 
en: , : 
> 26 7% CH_HEADERS_LOWER) : : 


Vé 


Binet tee for both .TITLE and .SUBTITLE = 
XTN = 0; ‘Clear transaction numbers 


—lc 
— 
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V B80 TITLES == 1 ~8ep-19 4 eee RUNOFF .SRC THTLES OL dat . (4) 

> 248 75 BEGIN : 
: 249 6 HCT_HD_CASE = WET WD LOWER: : 
: 29 7 'Set up case rules jer "index' : 
; 1 0 if NPAGEN CSCT_INDEX_DJ = TCONVRT_LET_LOW; : 
3 26 HH »PHAN_TOP_FIRST THEN : 
H 2 80 PAGEN CSCT_INDEX_DJ = TCONVRT_LET_LOW; ; 
: 4 1 RETURN; : 
; a2 ¢ ; : 
3 37 8 ¢ CH WEADERS OND : ; 
; 259 8 S HCT_HEADERS = .PHAN_CMD_PAGING; 'Turn on headers if not /NOPAGING ; 
; 260 RETORN; : 
; se 0 Hy ND; 3 
; 66 0389 3 
>; 26 0390 CH_HEADERS_MIXED] : : 
: 264 0391 BEGIN : 
3 265 0398 HCT_HD_CASE = HCT_HD MIXED; : 
: 266 039 'Sef cine rules for ‘index’ ==> 'Index' : 
; 67 0394 NPAGEN CSCT_INDEX_D] = TCONVRT_LET_MIX; ‘ 
; 268 0395 IF .PHAN_T FIRST THEN ; 
3 269 0396 PAGEN CSCT_INDEX_D] = TCONVRT_LET_MIX; : 
; 270 0397 RN; : 
: 271 0398 2 3 ; 
3 sie 0399 : 
3 sf 0400 CH_HEADERS_UPPER] : ° 
H 74 0401 BEGI : 
3 75 ot 4 HCT_HD_CASE = HCT_HD UPPER; : 
: 276 0403 3 'Set case rules for ‘index’ ==> "INDEX' ; 
: e277 0404 3 NPAGEN CSCT_INDEX_DJ = TCONVRT_LET_UPP; : 
; 278 0405 3 F .PHAN_TOP_FIRST : 
s 44 0406 PAGEN CSCT_INDEX_DJ = TCONVRT_LET_UPP; 

; 280 0407 3 TURN; 

s eel 0408 3 

3 see 0409 

AH 8 0410 CH_NO_HEADERS) : 

3: 6284 0411 N 

3; 285 Belg ; HCT_HEADERS = FALSE; 

3 $B9 041 RETORN; 

: 287 0414 : 

; 288 Bol? 

3 89 U 118 ZIF 7 - ZTHEN A 

3 20 ? 93 WF ARST TETLE_AJ : ‘First title Calwaysd. 

; 4 U 6419 PHAN_HEADER = TRUE; ‘Force header for this page. 

; 29 U 0420 HCT_TITLE_ALWAYS = TRUE; 'Print title on every page, including chapter pages. 

: 94 U 0421 RETORN; 

3; 295 U 04 § : 

3 4 FI 

: 2 4 

: 298 ? CH_T -1, H_SUBTITLE) : 

3 4 

A 4 

s 4 

: 4 

3 4 


RAaTlsS 


'Preserve and reset indentation so SCANT doesn't try to 
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v04-000 TITLES == 14-Sep-1984 08:18 RUNOFF .SRCJTITLES.BLI; (4) 
; 305 4 ¢ ‘indent the title/subtitle. : 
; 06 4 HOLD INDENT = .SCA_INDENT; : 
; 44 r ¢ SCA_INDENT = 0; : 
: 309 4 § ‘Remember current buffer status. : 
; 311 4 8 HOLDIMRA = .MRA; : 
: 314 Bea) CHTITLED : ; 
: 1g bcs ‘Preliminaries for .TITLE : 
; 318 0445 'Switch to title buffer and descriptor. ; 
; 19 0446 TSF = TITTSF; ; 
; 320 0447 MRA = TITMRA: : 
Bo i oe 7 
; 308 0450 C-1, H_SUBTITLE) : : 
: 352 peas 'Preliminaries for .SUBTITLE : 
: 327 0454 ; ‘Switch to subtitle buffer and descriptor. : 
: 328 0455 TSF = SBITSF; F 
; 329 0456 3 MRA = SBTMRA; 3 
; 330 0457 3 HCT_SUBTITLE = TRUE; 'Signal subtitles wanted. “ 
Bo ae ri | 
i 335 0460 CHTITLE, -1, SUBTITLED : ; 
; 332 994 ; 'Common processing for both commands : 
: $34 0464 ; ‘Initialize title/subtitle descriptor. ; 
: 38 0465 INCR I FROM_O TO TSF_SIZE - 1 DO : 
3 4 bee8 H TSF C.1] = 0; : 
: 341 0468 \Initialize title/subtitle buffer 3 
i 34g 0469 FS_INIT (MRA); : 
; 3a 0471 Copy SCANT tables so we can restore them Later. : 
: $02 Ber§ PUSH_SCA; 'Save the SAVEd SCA bits. : 
: 346 047 INCR-I FROM 0 TO_SCA_SIZE = 1 DO : 
: 349 0476 'Reset those parts of the SCANT tables that are not inherited : 
: 350 477 from the main body of the text. : 
33¢ 479 SCADJUSTIFY. = FALSE: 
; 33 $480 SCA_RM = 150; : ‘Maximum right margin so SCANT won't start a new Lin 3 
; 354 0481 SCA_LM = 0; 'No Left margin, so title/subtitle is flush left. : 
: gas SEAURD AUNT = 9: ieterest Lieiee $s core et oe 
= 0; ‘External len ‘ 3 
; 5 4 SCA_SPATING = 1; ‘Don't let SPACING stick to this text. 3 
; 358 485 SCAWRD_ISEQN = 0; : 
: 359 486 SCA"WRD-DRAFT = 0: : 
; 360 487 SCAWRD-DRAFT_F = XC" '; ; 
; 1 488 SCA_WRD_BARS = 0; : 


Be Ge Be Ge Ge Se Se Se FO Se Se Se Se Se Ge Fe Ss Ge Se Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Fe Se Ge Fe Se Ge Fee Se Se Se Fe Seas Fe See Se Se Se tsetse te teas 


WAN 
COCO NINN NIN NINN NSN OO 
ANEW OOO NOUSWN—OVOONOu 


WWM AA WANA ANAWNWw 
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—M 


NNMWNMNMNMMNMNONM 
AANQOAAAONOQNO 
om PP PP PS, >>rr,r 


now HH En 


'No pending character right now. 
RT (MRA); r : ’ 


emporarily set it to zero 
ike cée? ces. 
LE CCL_INDEX); 


'so tabs get prestey 
HOLD i” OUNT = .TTA 
TTABCE COL_INDEX] = 0; 


'Skip all spaces and tabs before the actual text. 
RSKIPS(IRA); 


gt re remainder of this input Line. 


‘Drop trailing spaces, unless at least one of them 
‘is underline 
'SCA_WRD_ CPEND: is equal to RINTES if a space/tab 
‘was encountered after the last character on the Line. 
IF .SCA_WRD_ CPEND EQL RINTES THEN 
IF  TSCA_WRD_LST_UND EQL 0 THEN 
He 2 pending Gndert ine character. 


S; 
A 
Preserve tab count; tit 
. 


Tuhen dropping erect spaces, also set 
‘intra-Line pointer an counter back cseaGnoet S173 
FS LENGTH (MRA) = .FS_LENGTH (MRA) - SP; 
FS"NEXT (MRA) = CHSPLOS (. is NEXT (MRA) Sas wRB “LST SP): 
‘And now reeily do drop those trailing Spaces. 

Stn WRD_LST_SP = 0; 


Finish | pest < were s on Line so that TSF contains the entire 
e or 
ENDWRD (FALSE, FALSE, FALSE); 


'TSF and MRA now contain the complete text description and the 
‘text itself. 


'Pick up transaction numbers to take care of an <INDEX flag> 
‘discovered during processing of a title or subtitle. 

‘If called as a subroutine - HANDLER. CODE EQL -1) 

ye s the gat ier s responsibility. 

IF wel ee CODE NEQ -1 THEN 


FIRST_XTN = .TSF_FIRST XTN; 
LAST_RIN = .TSF_CAST XTN; 
(Remove transaction A from title/subtitle 


'No filling, no justifying, no hyphenation. 


LHP FANNIN NNN BBE EB BANNAN AWW NNWANWWWWI 


SOOOSOOSOOCCOOCOOCOCOSCSOOOOSOSOSOOSOOOSOSO OOOO OOCOCOOOOOOOOOOCOOOOCOOOOOOOOOoOO -U 
SH enews sh sh sb hb db db hb Ah db Ab Ah Ab Ab Ah Ah bh ah dh Ah ab ah dh Ah ah ah A Del el el tel tel Sl Sel el el Se ee oie | 


< 


Be Be Oe Be Be Be Be Se SESE Se Se Se Se Se Se Se Fe Ge Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Fee Se Se se Se Se Ve Se se Se se Se Se Se Se tees teas tease 
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—_ 
me 


Foy oF 2F at ot of at af of af at ot at at at at 
UEWN—OCDNAUEWN OO 


=RININMANEPIPINI ANNAN ANNAN NAA NAA BB BB BEE BE EAN 


eS e Se Se Ge Se Se Se Se Ge Oe Be Se Se Se Se Ge THe Se SH Ss Oe Se oe SHE Se Se Se HSH Se OH Oe Se Oe SF Se Se Oe SH s Se Oe oe SEOs Se Sees 


-Sep-1 RUNOFF .SRC TITLES BLI; 


'Check to see that the pers retrieved is not too long 
IF .TSFLEXT_HL GTR .GCA_LWIDTH 


-HANDLER_CODE NEQ -1 
THEN 
BEGIN 
‘Title or subtitle is too wide. 
ERMA (RNFTTL, FALSE); 


‘Forget obearyhing.t at was collected. 
INCR I F SIZE = 1 DO 
TSF C.J] = 0; 


FS_INIT (MRA); 
END; 


‘Restore RUNOFF state prior to .TITLE/. SUBTITLE 
TSF = -HOLD_TSF:; 
MRA = .HOLD-MRA 

SCA_INDENT = "HOLD. INDENT; 


'If an <INDEX flag> was Fe associate the transaction numbers 
‘with the creer text aa fer. 
IF .TSF_FIRST_XTN EQL 0 6 if 

TSF riRst "RIN = .FIRST_X 


IF .LAST_XTN NEQ 0 THEN 
TSF_LAST_XTN = .LAST_XTN; 


‘when restoring SCA, ee * out. side effects, ** and \\ 
'NOTE: is is su Beer Pe UNOFF ¢ 

pans FROM SCA_ . E waize 19,08 SITE = - i do 
POP_SCA; thestar’ the SAVEd SCA bits. 
‘Restore, status of tabs. 

abt CCL PINDEX) = .HOLD_TAB_COUNT; 


END; 
CH_NO_SUBTITLE) : 
BE 


HCT_SUBTITLE 
RETORN; 


FALSE; 


TES; 
‘End of TITLES 


-TITLE TITLES erecoss most directives related to docum 
n 
LIDENT \V04-000\ 


Pee Se Se Se Oe Oe ee Be Se Ge Se Se ee Ge Oe Se SH Se Se Se Se FH FH Se Se PHT Be Oe BH Oe OH Oe Os Se Oe Se Se Se SHS Se HSE Ss Se SH Se Se Se ee Se Se ee esas 


BME TITLE 
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. = r ae tioe ts ra te rte ae ee 
.PSECT SOWNS,NOEXE,2 : 
00000 PP_SCA: .BLKB 48 ; 
.EXTRN RINTES, FLGT, GCA ; 
“EXTRN HCT, IRA, KHAR, MRA : 
“EXTRN NUMPRM, PAGEN, NPAGEN : 
SEXTRN PHAN, SBTMRA, SBTTSF : 
SEXTRN SCA, TTABLE, TITMRA : 
“EXTRN TITESF, TSF. RNETTL ; 
“EXTRN ERMA, ENDWRD, RSKIPS ; 
-EXTRN SCANT ; 
.PSECT SCODES,NOWRT ,2 F 
OFFC 00000 ENTRY TITLES, Save R2,R3,R4,R5,RO,R7,RB,RI-RI0,~ ; 0262 ; 
5B 000000006 EF 9E 0002 MOVAB HCT+20, R11 : ; 
5a 00000000' EF 9E 0000 OVAB PP_SCA. R10 : : 
59 000000006 EF 9E 0019 MOVAB Ch 26, R9 : ; 
5E FE8O CE 3 0001 MOVAB =384(SPS, SP : ; 
52 04 AC D 001¢ MOVL § HANDLER_CODE, R2 + 0297 : 
04 52 D1 00020 CMPL = R2, 4 + 0300 : 
46 if 0023 BNE : : 
01 000000006 EF Fs 900 5 BLBS NUMPRM, 1$ > 0303 : 
OD 000000006 EF £9 000 D 1$: BLBC  NUMPRM+8, 2$ + 0306 : 
000000006 EF 000000006 FF £0 00034 ADDL2 GCA+120, NUMPRM+4 + 0309 
000000006 FF D3 00041 2$: Ist NUMPRM+12 ; 0311 ; 
000000006 EF 000000006 EF D0 00049 MOVL  GCA+120, NUMPRM+4 > 0313 : 
000000006 FF 000000006 EF DO 00054 3S: MOVL § NUMPRM+4, aGCA+8 : 0316 ; 
000000006 EF 00000000G EF v0 00055 MOVL NUMPRM+4, GCA+120 0317 ; 
00000075 =F 52 Dt 00068 4$: cHPL R2, #117 0321 : 
000000006 FF D4 00074 CLRL aGCA+8 0323 ; 
11 52 D1 0007B 5$: CMPL  R2, #17 : o325 : 
05 12 ove BNEQ : F 
FO BB 01 v0 008 MOVL #1, @HCT+4 + 0344 ; 
4 00084 RET : 0345 : 
0000007A_—s BF 52 Df 0 te 6$: cmPL R2, #122 ; 0348 : 
FO BB D4 0 F CLRL  @HCT+4 > 0350 : 
4 0009 RET > 0349 : 
00000095 8F 52 Dt 0 38 7$: cHPL Re. W149 ; 0356 
8 000000006 EF FB 00% gee BakNeoe. 8s : $369 ; 
of itddittdts EF FS 6 iS BLBC PHAN, 8$ 2 § $9 ; 
F8 BB b4 ap 8$: CLRL @HCT+12 : 0 $4 : 
4 B RET 3 5 3 
00000044 8F 52 D1 00081 9S: CMPL Re #68 : 0368 ; 
: 08 12 00088 BNEG 108 ; : 


dD 15 
TITL Process most directives related to document tit 16-Sep-1984 01:53: AX-11 Bliss-32 V4.0-74 Page 1 

V LB80 TITLES == 12788-1383 OF Bate RUNOFF SRESTITLES OL ttf . (af 
000000006 FF 01 BO BA MOVL #1, @PHAN+28 : 0370 : 
4 000C¢ RET : 369 ; 
00000058 = BF 52 D C2 10$: CMPL R2 #91 + 0374 ; 
00 8B De dooce EHee le rs20 ; 037 ; 
000000006 EF 04 04 BR FO ce INSV #3 i #4, NPAGEN+13 : 338 : 
9 000000006 ai E D BLBC PHAN+24, 145 : 0379 ; 
000000006 EF 04 04 3 FO 0 DE INSV #3, #4, #4, PAGEN+13 : 380 ; 
0000005D = &F 52 D1 OOOES8 11$:  CMPL R2, #93 + 0384 ; 
0 if} OOEF BNE : ; 
F4 BB 000000006 EF p OOF MOVL § PHAN+44, @HCT+8 : 0386 ; 
4 000F9 RET : 03 i 
0000005C &F 52 D1 OOFA 12$: CmPL R #92 + 0390 : 
00 8B 05 06 0103 MOVL #2, @HCT+20 + 0392 : 
000000006 EF 04 04 04 FO 001 INSV #4, #4, #4, NPAGEN+13 + 0394 ; 
20 000000006 FF £9 90119 BLBC PHAN+24, 14$ + 0395 ; 
000000006 EF 04 04 4 F0 0011 INSV #4, #4, #4, PAGEN+13 : 0396 ; 
04 00120 RET : 0391 ; 
O00000SE BF 52. 0100121 13$: CMPL R2, #94 + 0400 ; 
1F 12 00128 BNEQ : ; 
00 8B 01 DO 0012A MOVL #1, @HCT+20 + 0402 ; 
000000006 EF 04 04 02 FO 001 E INSV #2, #4, #4, NPAGEN+13 + 0404 ; 
01 000000006 EF £8 00137 148: — BLBS PHAN+24, 158 ; 0405 ; 
000000006 ‘EF 04 04 02 FO 0013F 15$: INSV #2, #4, #4, PAGEN+13 + 0406 : 
04 00148 RET > 0401 : 
00000090 =F 52. D1 00149 16$:  CMPL  R2, #144 > 0410 : 
04 12 00150 BNEQ : : 
F4 BB D4 00152 CLRL  a@HCT+8 + 0412 : 
04 9019 RET + 0411 ; 
FFFFFFFF 8F 3§ D1 00156 17$: CMPL R #-1 3: 0425 $ 
12 13 00150 BEQL : : 
000000¢9 —&F 52 D1 0015F CMPL = R2, - #201 : : 
09 13 00166 BEQL ; : 
000000cc = BF 52 DI 00168 CMPL Re #204 : ; 
15 120 16 BNEQ 19$ ; ; 
53 7C€ 00171 18$: CLRQ LAST_XTN > 0429 : 
58 69 DO 175 MOVL SCA+220, HOLD_ INDENT + 0433 ; 
69 D4 1% CLRL $CA+220 + 0434 : 
55 900000006 EF D0 0017 MOVL TSF, HOLD_TSF : 0437 : 
57 000000006 EF DO 0017F MOVL § MRA, HOLD“MRA > 0438 : 
oo0000cc = BF 3 D aE 19$: cMPL Re #204 > 0441 3 
900000006 EF 900000006 EF 9 0018F MOVAB TITTSF, TSF + 0446 ; 
000000006 cr 000000006 EF 9E 0019A MOVAB TITMRA. MRA > 0447 : 
FFEFFFFF F 2 D1 OO1AS 208: CMPL = R2, wai : 0450 : 
93 13 QO1AC BEQL 2 3 3 
000000C9 = 8F 2 01 3 CMPL Rg #201 ; ; 
1A 12 0918 BNEQ 22% ; ; 
000000006 _ EF 900000006 EF 9E OO1B7 21$: § MOVAB  SBITTSF, TSF > 0455 : 
000000006 EF 000000006 EF 3 1C2 MOVAB SBTMRA MRA : 496 : 
04 6B 1 D 1CD MOVL #1, a@HeT+24 : 0457 F 
FFFFFFFF F 101 22$: CMPL #-1 ; 0460 s 
1 108 BEQL ; ; 
000000C9_—s BF 52 D1 O01DA CMPL  R2, #201 : 3 
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Vv S80 TITLES <= 12-808=1 382 94:33:98 AUNOFECSRESTETLES. Last di 
7E D4 00208 CLRL. = = (SP) ; : 
000000006 EF : FB DD CALLS ry ENDWRD : ; 
1 D £4 CLRL sR + 0541 ; 
sped sided | Soy 32 93 Sose6 Srot | 9g 
51 D FF INCL RI : ; 
0 000000 06 EF D rh MOVL TSF, RO + 0543 ; 
4 Ag D F MOVL 26(R ), FIRST_XTN : ; 
3 ¢ A p F MOVL § (RO), LAST RIN + 0544 F 
AO § CLRQ 6(RO) 3; 0546 3 
50 000000006 EF D 27$:  MOVL TSF, RO + 0551 : 
000000006 FF 04 49 DI 00304 cMPL gin), @GCA+140 : : 
2E H E9 00314 BLBC = 1, 298 : 0553 ; 
E D4 00317 CLRL 0s = §P) + 0557 ; 
000000006 8F 0D 6 19 PUSHL #RNFTTL : ; 
000000006 _ EF : FB 0 1F CALLS #2, ERMA gor : 
000000006FF 40 D4 00 8 28$: CLRL = aTSFCII : ; 
FS 50 27 ~F3 O0030F AOBLEQ #39, I, 28$ : ; 
50 ooooongee Se Be HEAL ah heey BE 
60 10 Ao i 0 3 MOVAB 16(RO), (RO) : ; 
04 AO $0 DO 00341 MOVL (RO), 4¢RO) : ; 
000000006 EF 5 DO 00345 298: MOVL HOLD TSF, TSF + 0567 ; 
000000006 _ EF 57 D6 00 4¢ MOVL § HOLD"MRA, MRA : 0568 ; 
69 58 DO 0035 MOVL  HOLD-INDENT, SCA+220 + 0569 : 
50 000000006 EF DO 00336 MOVL ‘TSF, RO : 0573 : 
38 «=6AO «(S 0340 TSTL 56(RO) : ; 
04 12 00 60 BNEQ  30$ : ; 
38 =A 4 DO 0036 MOVL §FIRST_XTN, 56(RO) : 0574 : 
53 pS 00 66 30$: TSTL LAST _RTN : 0576 : 
04 13 0036 BEQL 1$ ; ; 
3c =A 3 DO 0036A MOVL LAST_XTN, 60(RO) : 0577 : 
50 19 00 00 $F 318 MOVL #25,71 : 0581 ; 
FF24 C940 6E40 00 0 2$ MOVL  SCA_HOLDLI), SCACI) : 0582 ; 
50 0000005F 8F F3 00378 AOBLEQ #957 I, 32$ : : 
88 B89 6A 00 00380 MOVL PP_SCA, @SCA+100 : ; 
8C B9 04 AA 00 00 MOVL PP_SCA+4, @SCA+104 ; ; 
90 89 08 AA dO 00389 MOVL PPTSCA+8, aSCA+108 : : 
94 B9 0¢ AA 00 00 MOVL  PPTSCA+12, aSCA+112 : : 
98 B89 10 AA 00 9 MOVL  PPTSCA+16, a@SCA+116 ; F 
9¢ «BY 14 AA D 9 MOVL § PPTSCA+20, aSCA+120 ; : 
AO B9 18 AA 06 9 MOVL  PPTSCA+24, a@SCAt+124 : : 
AG BY 1¢ AA OD A MOVL § PPTSCA+28, aSCA+] : : 
AS B89 0 AA D A MOVL PPTSCA+32, aSCA+1 ; : 
AC B9 4 AA D AC MOVL § PP™SCA+36, @SCA+1 ; : 
BO 89 8 AA D Bi MOVL  PP™SCA+40, a@SCA+140 ; : 
Bs B89 C AA OD B6 MOVL  PPTSCA+44, a@SCA+144 ; : 
000000006 EF 56 i ROVL HOCD_TAB_COUNT, TTABLE+4 : see 3 
0000009A =F 5 i 3 33$: cwPL R2 #154 ; 0589 3 
04 6B CC CLRL a@HCT+24 > 0591 ; 
Be CF 34$:  — RET : 8334 : 


; Routine Size: 976 bytes, Routine Base: $CODE$ + 0000 
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- TITLES ety 7 9}: a8: % RUNOFF. SRCIT Tues :oL 124 . (4) 
ret 0898 1 END 'End of modul 

'End of module 
472 399 0 ELUDOM nr ats 
PSECT SUMMARY 
Name Bytes Attributes 

SOWNS 48 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, panded) Eva bot ht 

SCODES 976 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eoeceece Symbols -------- Pages Processing 

File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 
“$5 8eSDUAB: CRUNOF F- SRCIDSRLIB.L32;1 1248 116 9 86 00:00.3 

COMMAND QUALIFIERS 

BLISS/CHECK=(FIELD, INITIAL, ,OPTIMIZE)/LIS=LIS$: TITLES/OBJ=OBJ$: TITLES MSRC$:TITLES/UPDATE=(ENHS$: TITLES) 

Size: 976 code + 48 data bytes 

Run Time: 00:20.4 

Elapsed Time 00:45.9 

Lines/CPU Min: 1763 

Lexemes/CPU-Min: 17870 


ry Used: 205 pages 
Compilation Complete 
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